﻿Public Class Nivel

    Dim m_codigo As Integer
    Dim m_codigoDepartamento As Integer
    Dim m_nivel As Integer
    Dim m_salarioMinimo As Double
    Dim m_salarioMaximo As Double

    Public Sub New(ByVal p_codigo As Integer, ByVal p_codigoDepartamento As Integer, ByVal p_nivel As Integer, _
                   ByVal p_salarioMinimo As Double, ByVal p_salarioMaximo As Double)
        Codigo = p_codigo
        CodigoDepartamento = p_codigoDepartamento
        Nivel = p_nivel
        SalarioMinimo = p_salarioMinimo
        SalarioMaximo = p_salarioMaximo
    End Sub

    Public Property Codigo() As Integer
        Get
            Return m_codigo
        End Get
        Set(ByVal p_codigo As Integer)
            m_codigo = p_codigo
        End Set
    End Property

    Public Property CodigoDepartamento() As Integer
        Get
            Return m_codigoDepartamento
        End Get
        Set(ByVal p_codigoDepartamento As Integer)
            m_codigoDepartamento = p_codigoDepartamento
        End Set
    End Property

    Public Property Nivel() As Integer
        Get
            Return m_nivel
        End Get
        Set(ByVal p_nivel As Integer)
            m_nivel = p_nivel
        End Set
    End Property

    Public Property SalarioMinimo() As Double
        Get
            Return m_salarioMinimo
        End Get
        Set(ByVal p_salarioMinimo As Double)
            m_salarioMinimo = p_salarioMinimo
        End Set
    End Property

    Public Property SalarioMaximo() As Double
        Get
            Return m_salarioMaximo
        End Get
        Set(ByVal p_salarioMaximo As Double)
            m_salarioMaximo = p_salarioMaximo
        End Set
    End Property

End Class
